home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AOL File Library: 4,101 to 4,200
/
aol-file-protocol-4400-4101-to-4200.zip
/
AOLDLs
/
Shareware Demos
/
TOOTHPIK_ V3.0 Dental Office Mgr
/
TOTHDEMO.exe
/
PATPROC.MDX
(
.txt
)
< prev
next >
Wrap
dBASE Multiple Index
|
1993-01-16
|
4KB
|
21 lines
PATPROC
PROCNAME
P]L P]V P]
^ ? CHR(7) && RING BELL & print error msg
ACTIVATE WINDOW Search_W
@ 1,2 SAY "Patient ID#: " + QINP + " Was Not Found";
GET QINP MESSAGE " Press Enter" COLOR W+/B, B/B
READ && dummy read
DEACTIVATE WINDOW Search_W
RETURN
ELSE
COUNT WHILE CUSTNO = QINP TO Howmany
GOTO 1
SCAN FOR CUSTNO = QINP
DO Klist_form
PROCNAME
PROCNAME
CRW4
Match capit`iz